home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / basecast.cst / 00083_Script_eras functions < prev    next >
Text File  |  1997-07-24  |  2KB  |  36 lines
  1. on trackButton altMember, theCastLib -- produces standard button behaviour
  2.   if voidP(theCastLib) then set theCastLib = "internal"
  3.   --  set altMemberName = the memberNum of cast altMember
  4.   put the clickOn into theSpriteNumber
  5.   put the memberNum of sprite theSpriteNumber into baseMember
  6.   repeat while the mouseDown
  7.     if rollover(theSpriteNumber) then
  8.       set the memberNum of sprite theSpriteNumber to the number of member altMember of castlib theCastLib
  9.     else set the memberNum of sprite theSpriteNumber to the membernum of member baseMember of castlib theCastLib
  10.     updateStage
  11.   end repeat
  12.   return rollover(theSpriteNumber)
  13. end 
  14.  
  15. on dirFileForEraCode eraCode -- returns platform-specific filename for next era movie
  16.   --  set pctestmode = 1  
  17.   -- select path separator
  18.   -- or pctestmode 
  19.   if the machinetype <> 256 then set pathSep = ":"
  20.   else set pathSep = "\"
  21.   
  22.   -- set new director movie filename
  23.   set head = the moviepath
  24.   --  set head = "D:\PB\ERAS\TY\"
  25.   delete the last char of head
  26.   set theItemDelimiter = the itemdelimiter
  27.   set the itemdelimiter = pathSep
  28.   if the movie contains "ERA_" then delete the last item of head
  29.   else put pathsep & "eras" after head -- test in case of other movies
  30.   if the movie contains "era_top.dir" then  put pathsep & "eras" after head -- kf 97/3/7
  31.   set nextEraMovieName = head & pathSep & eraCode & pathSep & "ERA_" & eraCode & ".DIR"
  32.   --  alert nextEraMovieName -- debug *&*
  33.   set the itemdelimiter = theitemdelimiter
  34.   
  35.   return nextEraMovieName
  36. end